home *** CD-ROM | disk | FTP | other *** search
Emacs Compiled Lisp | 1998-10-28 | 7.2 KB |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
Confidence | Program | Detection | Match Type | Support
|
---|
1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
99%
| file
| data
| default
| |
100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6c 61 72 73 69 40 69 |piled by| larsi@i|
|00000020| 66 69 2e 75 69 6f 2e 6e | 6f 20 6f 6e 20 46 72 69 |fi.uio.n|o on Fri|
|00000030| 20 4a 75 6e 20 32 38 20 | 32 30 3a 33 34 3a 30 35 | Jun 28 |20:34:05|
|00000040| 20 31 39 39 36 0a 3b 3b | 3b 20 66 72 6f 6d 20 66 | 1996.;;|; from f|
|00000050| 69 6c 65 20 2f 67 64 2f | 67 6e 75 2f 65 6d 61 63 |ile /gd/|gnu/emac|
|00000060| 73 2f 31 39 2e 30 2f 6c | 69 73 70 2f 6e 6e 65 65 |s/19.0/l|isp/nnee|
|00000070| 74 68 69 6e 67 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |thing.el|.;;; ema|
|00000080| 63 73 20 76 65 72 73 69 | 6f 6e 20 31 39 2e 33 31 |cs versi|on 19.31|
|00000090| 2e 34 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |.4..;;; |bytecomp|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 46 53 46 20 32 2e 31 | version| FSF 2.1|
|000000b0| 30 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |0.;;; op|timizati|
|000000c0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000d0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|000000e0| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|000000f0| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000100| 20 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 18...(i|f (and (|
|00000110| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000120| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000130| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000140| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000150| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n).. |
|00000160| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|00000180| 2e 32 39 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |.29"))).| (err|
|00000190| 6f 72 20 22 60 6e 6e 65 | 65 74 68 69 6e 67 2e 65 |or "`nne|ething.e|
|000001a0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|000001b0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 2e 32 39 20 |for Emac|s 19.29 |
|000001c0| 6f 72 20 6c 61 74 65 72 | 22 29 29 0a 0a 0a 28 62 |or later|"))...(b|
|000001d0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 88 c0 c2 |yte-code| "..!...|
|000001e0| 21 88 c0 c3 21 88 c4 c5 | c6 c7 5c 22 c7 89 46 0e |!...!...|..\"..F.|
|000001f0| 08 42 16 08 c7 87 22 20 | 5b 72 65 71 75 69 72 65 |.B...." |[require|
|00000200| 20 6e 6e 68 65 61 64 65 | 72 20 6e 6e 6d 61 69 6c | nnheade|r nnmail|
|00000210| 20 6e 6e 6f 6f 20 6e 6e | 65 65 74 68 69 6e 67 20 | nnoo nn|eething |
|00000220| 6d 61 70 63 61 72 20 23 | 5b 28 70 29 20 22 08 43 |mapcar #|[(p) ".C|
|00000230| 87 22 20 5b 70 5d 20 31 | 5d 20 6e 69 6c 20 6e 6e |." [p] 1|] nil nn|
|00000240| 6f 6f 2d 64 65 66 69 6e | 69 74 69 6f 6e 2d 61 6c |oo-defin|ition-al|
|00000250| 69 73 74 5d 20 34 29 0a | 23 40 34 30 20 2a 57 68 |ist] 4).|#@40 *Wh|
|00000260| 65 72 65 20 6e 6e 65 65 | 74 68 69 6e 67 20 73 74 |ere nnee|thing st|
|00000270| 6f 72 65 73 20 74 68 65 | 20 6d 61 70 20 66 69 6c |ores the| map fil|
|00000280| 65 73 2e 1f 0a 28 64 65 | 66 76 61 72 20 6e 6e 65 |es...(de|fvar nne|
|00000290| 65 74 68 69 6e 67 2d 6d | 61 70 2d 66 69 6c 65 2d |ething-m|ap-file-|
|000002a0| 64 69 72 65 63 74 6f 72 | 79 20 22 7e 2f 2e 6e 6e |director|y "~/.nn|
|000002b0| 65 65 74 68 69 6e 67 2f | 22 20 28 23 24 20 2e 20 |eething/|" (#$ . |
|000002c0| 2d 36 30 35 29 29 0a 28 | 6e 6e 6f 6f 2d 64 65 66 |-605)).(|nnoo-def|
|000002d0| 69 6e 65 20 28 71 75 6f | 74 65 20 6e 6e 65 65 74 |ine (quo|te nneet|
|000002e0| 68 69 6e 67 2d 6d 61 70 | 2d 66 69 6c 65 2d 64 69 |hing-map|-file-di|
|000002f0| 72 65 63 74 6f 72 79 29 | 20 6e 69 6c 29 0a 23 40 |rectory)| nil).#@|
|00000300| 32 35 20 2a 4e 61 6d 65 | 20 6f 66 20 74 68 65 20 |25 *Name| of the |
|00000310| 6d 61 70 20 66 69 6c 65 | 73 2e 1f 0a 28 64 65 66 |map file|s...(def|
|00000320| 76 61 72 20 6e 6e 65 65 | 74 68 69 6e 67 2d 6d 61 |var nnee|thing-ma|
|00000330| 70 2d 66 69 6c 65 20 22 | 2e 6e 6e 65 65 74 68 69 |p-file "|.nneethi|
|00000340| 6e 67 22 20 28 23 24 20 | 2e 20 2d 37 37 31 29 29 |ng" (#$ |. -771))|
|00000350| 0a 28 6e 6e 6f 6f 2d 64 | 65 66 69 6e 65 20 28 71 |.(nnoo-d|efine (q|
|00000360| 75 6f 74 65 20 6e 6e 65 | 65 74 68 69 6e 67 2d 6d |uote nne|ething-m|
|00000370| 61 70 2d 66 69 6c 65 29 | 20 6e 69 6c 29 0a 23 40 |ap-file)| nil).#@|
|00000380| 31 30 36 20 2a 52 65 67 | 65 78 70 20 73 61 79 69 |106 *Reg|exp sayi|
|00000390| 6e 67 20 77 68 61 74 20 | 66 69 6c 65 73 20 74 6f |ng what |files to|
|000003a0| 20 65 78 63 6c 75 64 65 | 20 66 72 6f 6d 20 74 68 | exclude| from th|
|000003b0| 65 20 67 72 6f 75 70 2e | 0a 49 66 20 74 68 69 73 |e group.|.If this|
|000003c0| 20 76 61 72 69 61 62 6c | 65 20 69 73 20 6e 69 6c | variabl|e is nil|
|000003d0| 2c 20 6e 6f 20 66 69 6c | 65 73 20 77 69 6c 6c 20 |, no fil|es will |
|000003e0| 62 65 20 65 78 63 6c 75 | 64 65 64 2e 1f 0a 28 64 |be exclu|ded...(d|
|000003f0| 65 66 76 61 72 20 6e 6e | 65 65 74 68 69 6e 67 2d |efvar nn|eething-|
|00000400| 65 78 63 6c 75 64 65 2d | 66 69 6c 65 73 20 6e 69 |exclude-|files ni|
|00000410| 6c 20 28 23 24 20 2e 20 | 2d 39 30 30 29 29 0a 28 |l (#$ . |-900)).(|
|00000420| 6e 6e 6f 6f 2d 64 65 66 | 69 6e 65 20 28 71 75 6f |nnoo-def|ine (quo|
|00000430| 74 65 20 6e 6e 65 65 74 | 68 69 6e 67 2d 65 78 63 |te nneet|hing-exc|
|00000440| 6c 75 64 65 2d 66 69 6c | 65 73 29 20 6e 69 6c 29 |lude-fil|es) nil)|
|00000450| 0a 23 40 32 30 20 6e 6e | 65 65 74 68 69 6e 67 20 |.#@20 nn|eething |
|00000460| 76 65 72 73 69 6f 6e 2e | 1f 0a 28 64 65 66 63 6f |version.|..(defco|
|00000470| 6e 73 74 20 6e 6e 65 65 | 74 68 69 6e 67 2d 76 65 |nst nnee|thing-ve|
|00000480| 72 73 69 6f 6e 20 22 6e | 6e 65 65 74 68 69 6e 67 |rsion "n|neething|
|00000490| 20 31 2e 30 22 20 28 23 | 24 20 2e 20 31 31 31 30 | 1.0" (#|$ . 1110|
|000004a0| 29 29 0a 23 40 33 31 20 | 43 75 72 72 65 6e 74 20 |)).#@31 |Current |
|000004b0| 6e 65 77 73 20 67 72 6f | 75 70 20 64 69 72 65 63 |news gro|up direc|
|000004c0| 74 6f 72 79 2e 1f 0a 28 | 64 65 66 76 61 72 20 6e |tory...(|defvar n|
|000004d0| 6e 65 65 74 68 69 6e 67 | 2d 63 75 72 72 65 6e 74 |neething|-current|
|000004e0| 2d 64 69 72 65 63 74 6f | 72 79 20 6e 69 6c 20 28 |-directo|ry nil (|
|000004f0| 23 24 20 2e 20 31 31 39 | 32 29 29 0a 28 62 79 74 |#$ . 119|2)).(byt|
|00000500| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c3 c4 |e-code "|...\"...|
|00000510| 21 84 0d 00 c5 14 c4 0e | 06 42 16 06 c0 c4 c2 5c |!.......|.B.....\|
|00000520| 22 88 c3 c7 21 84 21 00 | c2 16 07 c7 0e 06 42 16 |"...!.!.|......B.|
|00000530| 06 c0 c7 c2 5c 22 88 c3 | c8 21 84 35 00 c9 16 08 |....\"..|.!.5....|
|00000540| c8 0e 06 42 16 06 c0 c8 | c2 5c 22 88 c3 ca 21 84 |...B....|.\"...!.|
|00000550| 49 00 cb 16 5c 6e ca 0e | 06 42 16 06 c0 ca c2 5c |I...\n..|.B.....\|
|00000560| 22 88 c3 cc 21 84 5d 00 | c2 16 5c 66 cc 0e 06 42 |"...!.].|..\f...B|
|00000570| 16 06 c0 cc c2 5c 22 88 | c3 cd 21 84 71 00 c2 16 |.....\".|..!.q...|
|00000580| 0d cd 0e 06 42 16 06 c0 | cd c2 5c 22 88 c3 ce 21 |....B...|..\"...!|
|00000590| 84 85 00 c2 16 0e ce 0e | 06 42 16 06 c0 ce c2 5c |........|.B.....\|
|000005a0| 22 88 c3 cf 21 84 99 00 | c2 16 0f cf 0e 06 42 16 |"...!...|......B.|
|000005b0| 06 c0 cf c2 5c 22 88 c3 | d0 21 84 ad 00 c2 16 10 |....\"..|.!......|
|000005c0| d0 0e 06 42 16 06 c0 d0 | c2 5c 22 88 d1 d2 21 87 |...B....|.\"...!.|
|000005d0| 22 20 5b 6e 6e 6f 6f 2d | 64 65 66 69 6e 65 20 6e |" [nnoo-|define n|
|000005e0| 6e 65 65 74 68 69 6e 67 | 2d 63 75 72 72 65 6e 74 |neething|-current|
|000005f0| 2d 64 69 72 65 63 74 6f | 72 79 20 6e 69 6c 20 62 |-directo|ry nil b|
|00000600| 6f 75 6e 64 70 20 6e 6e | 65 65 74 68 69 6e 67 2d |oundp nn|eething-|
|00000610| 73 74 61 74 75 73 2d 73 | 74 72 69 6e 67 20 22 22 |status-s|tring ""|
|00000620| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000630| 73 74 20 6e 6e 65 65 74 | 68 69 6e 67 2d 67 72 6f |st nneet|hing-gro|
|00000640| 75 70 2d 61 6c 69 73 74 | 20 6e 6e 65 65 74 68 69 |up-alist| nneethi|
|00000650| 6e 67 2d 6d 65 73 73 61 | 67 65 2d 69 64 2d 6e 75 |ng-messa|ge-id-nu|
|00000660| 6d 62 65 72 20 30 20 6e | 6e 65 65 74 68 69 6e 67 |mber 0 n|neething|
|00000670| 2d 77 6f 72 6b 2d 62 75 | 66 66 65 72 20 22 20 2a |-work-bu|ffer " *|
|00000680| 6e 6e 65 65 74 68 69 6e | 67 20 77 6f 72 6b 2a 22 |nneethin|g work*"|
|00000690| 20 6e 6e 65 65 74 68 69 | 6e 67 2d 64 69 72 65 63 | nneethi|ng-direc|
|000006a0| 74 6f 72 79 20 6e 6e 65 | 65 74 68 69 6e 67 2d 67 |tory nne|ething-g|
|000006b0| 72 6f 75 70 20 6e 6e 65 | 65 74 68 69 6e 67 2d 6d |roup nne|ething-m|
|000006c0| 61 70 20 6e 6e 65 65 74 | 68 69 6e 67 2d 72 65 61 |ap nneet|hing-rea|
|000006d0| 64 2d 6f 6e 6c 79 20 6e | 6e 65 65 74 68 69 6e 67 |d-only n|neething|
|000006e0| 2d 61 63 74 69 76 65 20 | 6e 6e 6f 6f 2d 64 65 66 |-active |nnoo-def|
|000006f0| 69 6e 65 2d 62 61 73 69 | 63 73 2d 31 20 6e 6e 65 |ine-basi|cs-1 nne|
|00000700| 65 74 68 69 6e 67 5d 20 | 33 29 0a 28 64 65 66 61 |ething] |3).(defa|
|00000710| 6c 69 61 73 20 27 6e 6e | 65 65 74 68 69 6e 67 2d |lias 'nn|eething-|
|00000720| 72 65 74 72 69 65 76 65 | 2d 68 65 61 64 65 72 73 |retrieve|-headers|
|00000730| 20 23 5b 28 61 72 74 69 | 63 6c 65 73 20 26 6f 70 | #[(arti|cles &op|
|00000740| 74 69 6f 6e 61 6c 20 67 | 72 6f 75 70 20 73 65 72 |tional g|roup ser|
|00000750| 76 65 72 20 66 65 74 63 | 68 2d 6f 6c 64 29 20 22 |ver fetc|h-old) "|
|00000760| c0 09 21 88 8a 5c 6e 71 | 88 c3 20 88 5c 66 47 1d |..!..\nq|.. .\fG.|
|00000770| c6 1e 07 0e 08 a7 85 1b | 00 0d 0e 08 56 1e 09 ca |........|....V...|
|00000780| 1e 0b ca 1e 5c 66 5c 66 | 40 3b 83 2d 00 cd 82 91 |....\f\f|@;.-....|
|00000790| 00 5c 66 89 41 14 40 89 | 16 0b 83 84 00 ce 0e 0b |.\f.A.@.|........|
|000007a0| 21 16 5c 66 cf 0e 5c 66 | 21 83 64 00 d0 0e 5c 66 |!.\f..\f|!.d...\f|
|000007b0| 21 84 55 00 d1 0e 5c 66 | 21 c6 55 84 64 00 d2 d3 |!.U...\f|!.U.d...|
|000007c0| 0e 0b 5c 22 63 88 d4 0e | 5c 66 21 88 d5 63 88 0e |..\"c...|\f!..c..|
|000007d0| 07 54 16 07 0e 09 83 2d | 00 0e 07 d6 a6 c6 55 83 |.T.....-|......U.|
|000007e0| 2d 00 d7 d8 0e 07 d9 5f | 0d a5 5c 22 88 82 2d 00 |-......_|..\"..-.|
|000007f0| 0e 09 83 8d 00 d7 da 21 | 88 db 20 88 cd 2e 06 87 |.......!|.. .....|
|00000800| 22 20 5b 6e 6e 65 65 74 | 68 69 6e 67 2d 70 6f 73 |" [nneet|hing-pos|
|00000810| 73 69 62 6c 79 2d 63 68 | 61 6e 67 65 2d 64 69 72 |sibly-ch|ange-dir|
|00000820| 65 63 74 6f 72 79 20 67 | 72 6f 75 70 20 6e 6e 74 |ectory g|roup nnt|
|00000830| 70 2d 73 65 72 76 65 72 | 2d 62 75 66 66 65 72 20 |p-server|-buffer |
|00000840| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 61 72 74 |erase-bu|ffer art|
|00000850| 69 63 6c 65 73 20 6e 75 | 6d 62 65 72 20 30 20 63 |icles nu|mber 0 c|
|00000860| 6f 75 6e 74 20 6e 6e 6d | 61 69 6c 2d 6c 61 72 67 |ount nnm|ail-larg|
|00000870| 65 2d 6e 65 77 73 67 72 | 6f 75 70 20 6c 61 72 67 |e-newsgr|oup larg|
|00000880| 65 20 6e 69 6c 20 61 72 | 74 69 63 6c 65 20 66 69 |e nil ar|ticle fi|
|00000890| 6c 65 20 68 65 61 64 65 | 72 73 20 6e 6e 65 65 74 |le heade|rs nneet|
|000008a0| 68 69 6e 67 2d 66 69 6c | 65 2d 6e 61 6d 65 20 66 |hing-fil|e-name f|
|000008b0| 69 6c 65 2d 65 78 69 73 | 74 73 2d 70 20 66 69 6c |ile-exis|ts-p fil|
|000008c0| 65 2d 64 69 72 65 63 74 | 6f 72 79 2d 70 20 6e 6e |e-direct|ory-p nn|
|000008d0| 68 65 61 64 65 72 2d 66 | 69 6c 65 2d 73 69 7a 65 |header-f|ile-size|
|000008e0| 20 66 6f 72 6d 61 74 20 | 22 32 32 31 20 25 64 20 | format |"221 %d |
|000008f0| 41 72 74 69 63 6c 65 20 | 72 65 74 72 69 65 76 65 |Article |retrieve|
|00000900| 64 2e 5c 6e 22 20 6e 6e | 65 65 74 68 69 6e 67 2d |d.\n" nn|eething-|
|00000910| 69 6e 73 65 72 74 2d 68 | 65 61 64 20 22 2e 5c 6e |insert-h|ead ".\n|
|00000920| 22 20 32 30 20 6d 65 73 | 73 61 67 65 20 22 6e 6e |" 20 mes|sage "nn|
|00000930| 65 65 74 68 69 6e 67 3a | 20 52 65 63 65 69 76 69 |eething:| Receivi|
|00000940| 6e 67 20 68 65 61 64 65 | 72 73 2e 2e 2e 20 25 64 |ng heade|rs... %d|
|00000950| 25 25 22 20 31 30 30 20 | 22 6e 6e 65 65 74 68 69 |%%" 100 |"nneethi|
|00000960| 6e 67 3a 20 52 65 63 65 | 69 76 69 6e 67 20 68 65 |ng: Rece|iving he|
|00000970| 61 64 65 72 73 2e 2e 2e | 64 6f 6e 65 22 20 6e 6e |aders...|done" nn|
|00000980| 68 65 61 64 65 72 2d 66 | 6f 6c 64 2d 63 6f 6e 74 |header-f|old-cont|
|00000990| 69 6e 75 61 74 69 6f 6e | 2d 6c 69 6e 65 73 5d 20 |inuation|-lines] |
|000009a0| 34 5d 29 0a 28 6e 6e 6f | 6f 2d 72 65 67 69 73 74 |4]).(nno|o-regist|
|000009b0| 65 72 2d 66 75 6e 63 74 | 69 6f 6e 20 28 71 75 6f |er-funct|ion (quo|
|000009c0| 74 65 20 6e 6e 65 65 74 | 68 69 6e 67 2d 72 65 74 |te nneet|hing-ret|
|000009d0| 72 69 65 76 65 2d 68 65 | 61 64 65 72 73 29 29 0a |rieve-he|aders)).|
|000009e0| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 65 65 74 |(defalia|s 'nneet|
|000009f0| 68 69 6e 67 2d 72 65 71 | 75 65 73 74 2d 61 72 74 |hing-req|uest-art|
|00000a00| 69 63 6c 65 20 23 5b 28 | 69 64 20 26 6f 70 74 69 |icle #[(|id &opti|
|00000a10| 6f 6e 61 6c 20 67 72 6f | 75 70 20 73 65 72 76 65 |onal gro|up serve|
|00000a20| 72 20 62 75 66 66 65 72 | 29 20 22 c0 09 21 88 5c |r buffer|) "..!.\|
|00000a30| 6e 3b 3f 85 0d 00 c3 5c | 6e 21 5c 66 86 12 00 0d |n;?....\|n!\f....|
|00000a40| 1d 89 1e 06 3b 85 42 00 | c7 0e 06 21 85 42 00 c8 |....;.B.|...!.B..|
|00000a50| 0e 06 21 3f 85 42 00 8a | c9 0e 06 21 88 ca 20 84 |..!?.B..|...!.. .|
|00000a60| 40 00 65 62 88 cb 0e 06 | 70 5c 22 88 cc 63 88 29 |@.eb....|p\"..c.)|
|00000a70| cd 2a 87 22 20 5b 6e 6e | 65 65 74 68 69 6e 67 2d |.*." [nn|eething-|
|00000a80| 70 6f 73 73 69 62 6c 79 | 2d 63 68 61 6e 67 65 2d |possibly|-change-|
|00000a90| 64 69 72 65 63 74 6f 72 | 79 20 67 72 6f 75 70 20 |director|y group |
|00000aa0| 69 64 20 6e 6e 65 65 74 | 68 69 6e 67 2d 66 69 6c |id nneet|hing-fil|
|00000ab0| 65 2d 6e 61 6d 65 20 62 | 75 66 66 65 72 20 6e 6e |e-name b|uffer nn|
|00000ac0| 74 70 2d 73 65 72 76 65 | 72 2d 62 75 66 66 65 72 |tp-serve|r-buffer|
|00000ad0| 20 66 69 6c 65 20 66 69 | 6c 65 2d 65 78 69 73 74 | file fi|le-exist|
|00000ae0| 73 2d 70 20 66 69 6c 65 | 2d 64 69 72 65 63 74 6f |s-p file|-directo|
|00000af0| 72 79 2d 70 20 6e 6e 6d | 61 69 6c 2d 66 69 6e 64 |ry-p nnm|ail-find|
|00000b00| 2d 66 69 6c 65 20 6e 6e | 68 65 61 64 65 72 2d 61 |-file nn|header-a|
|00000b10| 72 74 69 63 6c 65 2d 70 | 20 6e 6e 65 65 74 68 69 |rticle-p| nneethi|
|00000b20| 6e 67 2d 6d 61 6b 65 2d | 68 65 61 64 20 22 5c 6e |ng-make-|head "\n|
|00000b30| 22 20 74 5d 20 34 5d 29 | 0a 28 6e 6e 6f 6f 2d 72 |" t] 4])|.(nnoo-r|
|00000b40| 65 67 69 73 74 65 72 2d | 66 75 6e 63 74 69 6f 6e |egister-|function|
|00000b50| 20 28 71 75 6f 74 65 20 | 6e 6e 65 65 74 68 69 6e | (quote |nneethin|
|00000b60| 67 2d 72 65 71 75 65 73 | 74 2d 61 72 74 69 63 6c |g-reques|t-articl|
|00000b70| 65 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |e)).(def|alias 'n|
|00000b80| 6e 65 65 74 68 69 6e 67 | 2d 72 65 71 75 65 73 74 |neething|-request|
|00000b90| 2d 67 72 6f 75 70 20 23 | 5b 28 67 72 6f 75 70 20 |-group #|[(group |
|00000ba0| 26 6f 70 74 69 6f 6e 61 | 6c 20 64 69 72 20 64 6f |&optiona|l dir do|
|00000bb0| 6e 74 2d 63 68 65 63 6b | 29 20 22 c0 09 5c 6e 5c |nt-check|) "..\n\|
|00000bc0| 22 88 0b 84 2b 00 c4 20 | 88 0d 40 0d 41 56 83 1c |"...+.. |..@.AV..|
|00000bd0| 00 c6 c7 09 5c 22 88 82 | 2b 00 c6 c8 0d 41 54 0d |....\"..|+....AT.|
|00000be0| 40 5a 0d 40 0d 41 09 25 | 88 c9 87 22 20 5b 6e 6e |@Z.@.A.%|..." [nn|
|00000bf0| 65 65 74 68 69 6e 67 2d | 70 6f 73 73 69 62 6c 79 |eething-|possibly|
|00000c00| 2d 63 68 61 6e 67 65 2d | 64 69 72 65 63 74 6f 72 |-change-|director|
|00000c10| 79 20 67 72 6f 75 70 20 | 64 69 72 20 64 6f 6e 74 |y group |dir dont|
|00000c20| 2d 63 68 65 63 6b 20 6e | 6e 65 65 74 68 69 6e 67 |-check n|neething|
|00000c30| 2d 63 72 65 61 74 65 2d | 6d 61 70 70 69 6e 67 20 |-create-|mapping |
|00000c40| 6e 6e 65 65 74 68 69 6e | 67 2d 61 63 74 69 76 65 |nneethin|g-active|
|00000c50| 20 6e 6e 68 65 61 64 65 | 72 2d 69 6e 73 65 72 74 | nnheade|r-insert|
|00000c60| 20 22 32 31 31 20 30 20 | 31 20 30 20 25 73 5c 6e | "211 0 |1 0 %s\n|
|00000c70| 22 20 22 32 31 31 20 25 | 64 20 25 64 20 25 64 20 |" "211 %|d %d %d |
|00000c80| 25 73 5c 6e 22 20 74 5d | 20 36 5d 29 0a 28 6e 6e |%s\n" t]| 6]).(nn|
|00000c90| 6f 6f 2d 72 65 67 69 73 | 74 65 72 2d 66 75 6e 63 |oo-regis|ter-func|
|00000ca0| 74 69 6f 6e 20 28 71 75 | 6f 74 65 20 6e 6e 65 65 |tion (qu|ote nnee|
|00000cb0| 74 68 69 6e 67 2d 72 65 | 71 75 65 73 74 2d 67 72 |thing-re|quest-gr|
|00000cc0| 6f 75 70 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |oup)).(d|efalias |
|00000cd0| 27 6e 6e 65 65 74 68 69 | 6e 67 2d 72 65 71 75 65 |'nneethi|ng-reque|
|00000ce0| 73 74 2d 6c 69 73 74 20 | 23 5b 28 26 6f 70 74 69 |st-list |#[(&opti|
|00000cf0| 6f 6e 61 6c 20 73 65 72 | 76 65 72 20 64 69 72 29 |onal ser|ver dir)|
|00000d00| 20 22 c0 c1 c2 5c 22 87 | 22 20 5b 6e 6e 68 65 61 | "...\".|" [nnhea|
|00000d10| 64 65 72 2d 72 65 70 6f | 72 74 20 6e 6e 65 65 74 |der-repo|rt nneet|
|00000d20| 68 69 6e 67 20 22 4c 49 | 53 54 20 69 73 20 6e 6f |hing "LI|ST is no|
|00000d30| 74 20 69 6d 70 6c 65 6d | 65 6e 74 65 64 2e 22 5d |t implem|ented."]|
|00000d40| 20 33 5d 29 0a 28 6e 6e | 6f 6f 2d 72 65 67 69 73 | 3]).(nn|oo-regis|
|00000d50| 74 65 72 2d 66 75 6e 63 | 74 69 6f 6e 20 28 71 75 |ter-func|tion (qu|
|00000d60| 6f 74 65 20 6e 6e 65 65 | 74 68 69 6e 67 2d 72 65 |ote nnee|thing-re|
|00000d70| 71 75 65 73 74 2d 6c 69 | 73 74 29 29 0a 28 64 65 |quest-li|st)).(de|
|00000d80| 66 61 6c 69 61 73 20 27 | 6e 6e 65 65 74 68 69 6e |falias '|nneethin|
|00000d90| 67 2d 72 65 71 75 65 73 | 74 2d 6e 65 77 67 72 6f |g-reques|t-newgro|
|00000da0| 75 70 73 20 23 5b 28 64 | 61 74 65 20 26 6f 70 74 |ups #[(d|ate &opt|
|00000db0| 69 6f 6e 61 6c 20 73 65 | 72 76 65 72 29 20 22 c0 |ional se|rver) ".|
|00000dc0| c1 c2 5c 22 87 22 20 5b | 6e 6e 68 65 61 64 65 72 |..\"." [|nnheader|
|00000dd0| 2d 72 65 70 6f 72 74 20 | 6e 6e 65 65 74 68 69 6e |-report |nneethin|
|00000de0| 67 20 22 4e 45 57 53 47 | 52 4f 55 50 53 20 69 73 |g "NEWSG|ROUPS is|
|00000df0| 20 6e 6f 74 20 69 6d 70 | 6c 65 6d 65 6e 74 65 64 | not imp|lemented|
|00000e00| 2e 22 5d 20 33 5d 29 0a | 28 6e 6e 6f 6f 2d 72 65 |."] 3]).|(nnoo-re|
|00000e10| 67 69 73 74 65 72 2d 66 | 75 6e 63 74 69 6f 6e 20 |gister-f|unction |
|00000e20| 28 71 75 6f 74 65 20 6e | 6e 65 65 74 68 69 6e 67 |(quote n|neething|
|00000e30| 2d 72 65 71 75 65 73 74 | 2d 6e 65 77 67 72 6f 75 |-request|-newgrou|
|00000e40| 70 73 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ps)).(de|falias '|
|00000e50| 6e 6e 65 65 74 68 69 6e | 67 2d 72 65 71 75 65 73 |nneethin|g-reques|
|00000e60| 74 2d 74 79 70 65 20 23 | 5b 28 67 72 6f 75 70 20 |t-type #|[(group |
|00000e70| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 74 69 63 6c |&optiona|l articl|
|00000e80| 65 29 20 22 c0 87 22 20 | 5b 75 6e 6b 6e 6f 77 6e |e) ".." |[unknown|
|00000e90| 5d 20 31 5d 29 0a 28 6e | 6e 6f 6f 2d 72 65 67 69 |] 1]).(n|noo-regi|
|00000ea0| 73 74 65 72 2d 66 75 6e | 63 74 69 6f 6e 20 28 71 |ster-fun|ction (q|
|00000eb0| 75 6f 74 65 20 6e 6e 65 | 65 74 68 69 6e 67 2d 72 |uote nne|ething-r|
|00000ec0| 65 71 75 65 73 74 2d 74 | 79 70 65 29 29 0a 28 64 |equest-t|ype)).(d|
|00000ed0| 65 66 61 6c 69 61 73 20 | 27 6e 6e 65 65 74 68 69 |efalias |'nneethi|
|00000ee0| 6e 67 2d 63 6c 6f 73 65 | 2d 67 72 6f 75 70 20 23 |ng-close|-group #|
|00000ef0| 5b 28 67 72 6f 75 70 20 | 26 6f 70 74 69 6f 6e 61 |[(group |&optiona|
|00000f00| 6c 20 73 65 72 76 65 72 | 29 20 22 c0 11 c2 87 22 |l server|) "...."|
|00000f10| 20 5b 6e 69 6c 20 6e 6e | 65 65 74 68 69 6e 67 2d | [nil nn|eething-|
|00000f20| 63 75 72 72 65 6e 74 2d | 64 69 72 65 63 74 6f 72 |current-|director|
|00000f30| 79 20 74 5d 20 31 5d 29 | 0a 28 6e 6e 6f 6f 2d 72 |y t] 1])|.(nnoo-r|
|00000f40| 65 67 69 73 74 65 72 2d | 66 75 6e 63 74 69 6f 6e |egister-|function|
|00000f50| 20 28 71 75 6f 74 65 20 | 6e 6e 65 65 74 68 69 6e | (quote |nneethin|
|00000f60| 67 2d 63 6c 6f 73 65 2d | 67 72 6f 75 70 29 29 0a |g-close-|group)).|
|00000f70| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 65 65 74 |(defalia|s 'nneet|
|00000f80| 68 69 6e 67 2d 70 6f 73 | 73 69 62 6c 79 2d 63 68 |hing-pos|sibly-ch|
|00000f90| 61 6e 67 65 2d 64 69 72 | 65 63 74 6f 72 79 20 23 |ange-dir|ectory #|
|00000fa0| 5b 28 67 72 6f 75 70 20 | 26 6f 70 74 69 6f 6e 61 |[(group |&optiona|
|00000fb0| 6c 20 64 69 72 29 20 22 | 08 85 51 00 09 83 10 00 |l dir) "|..Q.....|
|00000fc0| 08 09 98 83 10 00 c2 87 | c3 1c c5 08 0e 06 5c 22 |........|......\"|
|00000fd0| 89 14 83 31 00 08 11 5c | 66 41 40 16 07 c8 5c 66 |...1...\|fA@...\f|
|00000fe0| 38 16 09 ca 5c 66 38 89 | 16 0b 82 50 00 08 11 0e |8...\f8.|...P....|
|00000ff0| 5c 66 16 07 c3 16 09 cd | ce 42 16 0b cf 20 88 08 |\f......|.B... ..|
|00001000| 0e 5c 66 0e 09 0e 0b 46 | 0e 06 42 89 16 06 29 87 |.\f....F|..B...).|
|00001010| 22 20 5b 67 72 6f 75 70 | 20 6e 6e 65 65 74 68 69 |" [group| nneethi|
|00001020| 6e 67 2d 67 72 6f 75 70 | 20 74 20 6e 69 6c 20 65 |ng-group| t nil e|
|00001030| 6e 74 72 79 20 61 73 73 | 6f 63 20 6e 6e 65 65 74 |ntry ass|oc nneet|
|00001040| 68 69 6e 67 2d 67 72 6f | 75 70 2d 61 6c 69 73 74 |hing-gro|up-alist|
|00001050| 20 6e 6e 65 65 74 68 69 | 6e 67 2d 64 69 72 65 63 | nneethi|ng-direc|
|00001060| 74 6f 72 79 20 32 20 6e | 6e 65 65 74 68 69 6e 67 |tory 2 n|neething|
|00001070| 2d 6d 61 70 20 33 20 6e | 6e 65 65 74 68 69 6e 67 |-map 3 n|neething|
|00001080| 2d 61 63 74 69 76 65 20 | 64 69 72 20 31 20 30 20 |-active |dir 1 0 |
|00001090| 6e 6e 65 65 74 68 69 6e | 67 2d 63 72 65 61 74 65 |nneethin|g-create|
|000010a0| 2d 6d 61 70 70 69 6e 67 | 5d 20 34 5d 29 0a 28 64 |-mapping|] 4]).(d|
|000010b0| 65 66 61 6c 69 61 73 20 | 27 6e 6e 65 65 74 68 69 |efalias |'nneethi|
|000010c0| 6e 67 2d 6d 61 70 2d 66 | 69 6c 65 20 23 5b 6e 69 |ng-map-f|ile #[ni|
|000010d0| 6c 20 22 c0 09 21 84 0b | 00 c2 09 c3 5c 22 88 c4 |l "..!..|....\"..|
|000010e0| 09 21 0d 0e 06 51 87 22 | 20 5b 66 69 6c 65 2d 65 |.!...Q."| [file-e|
|000010f0| 78 69 73 74 73 2d 70 20 | 6e 6e 65 65 74 68 69 6e |xists-p |nneethin|
|00001100| 67 2d 6d 61 70 2d 66 69 | 6c 65 2d 64 69 72 65 63 |g-map-fi|le-direc|
|00001110| 74 6f 72 79 20 6d 61 6b | 65 2d 64 69 72 65 63 74 |tory mak|e-direct|
|00001120| 6f 72 79 20 70 61 72 65 | 6e 74 73 20 66 69 6c 65 |ory pare|nts file|
|00001130| 2d 6e 61 6d 65 2d 61 73 | 2d 64 69 72 65 63 74 6f |-name-as|-directo|
|00001140| 72 79 20 6e 6e 65 65 74 | 68 69 6e 67 2d 67 72 6f |ry nneet|hing-gro|
|00001150| 75 70 20 6e 6e 65 65 74 | 68 69 6e 67 2d 6d 61 70 |up nneet|hing-map|
|00001160| 2d 66 69 6c 65 5d 20 33 | 5d 29 0a 28 64 65 66 61 |-file] 3|]).(defa|
|00001170| 6c 69 61 73 20 27 6e 6e | 65 65 74 68 69 6e 67 2d |lias 'nn|eething-|
|00001180| 63 72 65 61 74 65 2d 6d | 61 70 70 69 6e 67 20 23 |create-m|apping #|
|00001190| 5b 6e 69 6c 20 22 c0 20 | c1 5c 6e 21 c3 89 1c 1d |[nil ". |.\n!....|
|000011a0| 1e 06 1e 07 c8 0e 07 21 | 83 19 00 c3 c9 ca 8f 88 |.......!|........|
|000011b0| 0e 0b 84 23 00 cc cd 42 | 16 0b 0e 0e 40 41 83 39 |...#...B|....@A.9|
|000011c0| 00 0e 0e 40 41 3a 84 39 | 00 cf d0 0e 0e 5c 22 16 |...@A:.9|.....\".|
|000011d0| 0e 0e 11 83 78 00 0e 06 | c3 1e 12 89 1e 13 83 77 |....x...|.......w|
|000011e0| 00 d4 0e 11 0e 13 40 5c | 22 83 6a 00 0e 12 83 62 |......@\|".j....b|
|000011f0| 00 0e 12 0e 13 41 a1 88 | 82 6e 00 0e 06 41 16 06 |.....A..|.n...A..|
|00001200| 82 6e 00 0e 13 16 12 0e | 13 41 89 16 13 84 49 00 |.n......|.A....I.|
|00001210| 2a 0e 0e c3 1e 12 89 1e | 15 83 d1 00 0e 15 40 41 |*.......|......@A|
|00001220| 40 0e 06 9d 83 b2 00 d6 | d7 d8 0e 15 40 41 40 21 |@.......|....@A@!|
|00001230| 21 38 0e 15 40 41 41 40 | 9a 83 b2 00 0e 15 40 41 |!8..@AA@|......@A|
|00001240| 40 5c 66 42 14 0e 15 16 | 12 82 c8 00 d9 15 0e 12 |@\fB....|........|
|00001250| 83 c3 00 0e 12 0e 15 41 | a1 88 82 c8 00 0e 0e 41 |.......A|.......A|
|00001260| 16 0e 0e 15 41 89 16 15 | 84 83 00 2a 0e 06 83 06 |....A...|...*....|
|00001270| 01 0e 06 40 5c 66 9d 84 | fd 00 d9 15 0e 0b 89 41 |...@\f..|.......A|
|00001280| 54 a1 88 0e 0b 41 0e 06 | 40 d6 d7 d8 0e 06 40 21 |T....A..|@.....@!|
|00001290| 21 38 45 0e 0e 42 16 0e | 0e 06 41 89 16 06 84 d7 |!8E..B..|..A.....|
|000012a0| 00 0d 85 31 01 0e 1a 3f | 85 31 01 8a db dc 21 88 |...1...?|.1....!.|
|000012b0| dd de 0e 0e 21 df e0 de | 0e 0b 21 df b1 06 88 e1 |....!...|..!.....|
|000012c0| 65 64 0e 07 c3 e2 25 88 | e3 70 21 29 2c 87 22 20 |ed....%.|.p!),." |
|000012d0| 5b 6e 6e 65 65 74 68 69 | 6e 67 2d 6d 61 70 2d 66 |[nneethi|ng-map-f|
|000012e0| 69 6c 65 20 64 69 72 65 | 63 74 6f 72 79 2d 66 69 |ile dire|ctory-fi|
|000012f0| 6c 65 73 20 6e 6e 65 65 | 74 68 69 6e 67 2d 64 69 |les nnee|thing-di|
|00001300| 72 65 63 74 6f 72 79 20 | 6e 69 6c 20 6d 61 70 2d |rectory |nil map-|
|00001310| 66 69 6c 65 73 20 74 6f | 75 63 68 65 64 20 66 69 |files to|uched fi|
|00001320| 6c 65 73 20 6d 61 70 2d | 66 69 6c 65 20 66 69 6c |les map-|file fil|
|00001330| 65 2d 65 78 69 73 74 73 | 2d 70 20 28 62 79 74 65 |e-exists|-p (byte|
|00001340| 2d 63 6f 64 65 20 22 c0 | 09 c2 c3 89 24 87 22 20 |-code ".|....$." |
|00001350| 5b 6c 6f 61 64 20 6d 61 | 70 2d 66 69 6c 65 20 6e |[load ma|p-file n|
|00001360| 69 6c 20 74 5d 20 35 29 | 20 28 28 65 72 72 6f 72 |il t] 5)| ((error|
|00001370| 29 29 20 6e 6e 65 65 74 | 68 69 6e 67 2d 61 63 74 |)) nneet|hing-act|
|00001380| 69 76 65 20 31 20 30 20 | 6e 6e 65 65 74 68 69 6e |ive 1 0 |nneethin|
|00001390| 67 2d 6d 61 70 20 6d 61 | 70 63 61 72 20 23 5b 28 |g-map ma|pcar #[(|
|000013a0| 6e 29 20 22 08 41 08 40 | c1 c2 c3 08 40 21 21 38 |n) ".A.@|....@!!8|
|000013b0| 45 87 22 20 5b 6e 20 35 | 20 66 69 6c 65 2d 61 74 |E." [n 5| file-at|
|000013c0| 74 72 69 62 75 74 65 73 | 20 6e 6e 65 65 74 68 69 |tributes| nneethi|
|000013d0| 6e 67 2d 66 69 6c 65 2d | 6e 61 6d 65 5d 20 36 5d |ng-file-|name] 6]|
|000013e0| 20 6e 6e 65 65 74 68 69 | 6e 67 2d 65 78 63 6c 75 | nneethi|ng-exclu|
|000013f0| 64 65 2d 66 69 6c 65 73 | 20 70 72 65 76 20 66 20 |de-files| prev f |
|00001400| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 6d 61 70 |string-m|atch map|
|00001410| 20 35 20 66 69 6c 65 2d | 61 74 74 72 69 62 75 74 | 5 file-|attribut|
|00001420| 65 73 20 6e 6e 65 65 74 | 68 69 6e 67 2d 66 69 6c |es nneet|hing-fil|
|00001430| 65 2d 6e 61 6d 65 20 74 | 20 6e 6e 65 65 74 68 69 |e-name t| nneethi|
|00001440| 6e 67 2d 72 65 61 64 2d | 6f 6e 6c 79 20 6e 6e 68 |ng-read-|only nnh|
|00001450| 65 61 64 65 72 2d 73 65 | 74 2d 74 65 6d 70 2d 62 |eader-se|t-temp-b|
|00001460| 75 66 66 65 72 20 22 20 | 2a 6e 6e 65 65 74 68 69 |uffer " |*nneethi|
|00001470| 6e 67 20 6d 61 70 2a 22 | 20 22 28 73 65 74 71 20 |ng map*"| "(setq |
|00001480| 6e 6e 65 65 74 68 69 6e | 67 2d 6d 61 70 20 27 22 |nneethin|g-map '"|
|00001490| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|000014a0| 20 22 29 5c 6e 22 20 22 | 28 73 65 74 71 20 6e 6e | ")\n" "|(setq nn|
|000014b0| 65 65 74 68 69 6e 67 2d | 61 63 74 69 76 65 20 27 |eething-|active '|
|000014c0| 22 20 77 72 69 74 65 2d | 72 65 67 69 6f 6e 20 6e |" write-|region n|
|000014d0| 6f 6d 65 73 67 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |omesg ki|ll-buffe|
|000014e0| 72 5d 20 37 5d 29 0a 23 | 40 32 36 20 49 6e 73 65 |r] 7]).#|@26 Inse|
|000014f0| 72 74 20 74 68 65 20 68 | 65 61 64 20 6f 66 20 46 |rt the h|ead of F|
|00001500| 49 4c 45 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ILE...(d|efalias |
|00001510| 27 6e 6e 65 65 74 68 69 | 6e 67 2d 69 6e 73 65 72 |'nneethi|ng-inser|
|00001520| 74 2d 68 65 61 64 20 23 | 5b 28 66 69 6c 65 29 20 |t-head #|[(file) |
|00001530| 22 c0 09 21 85 5c 66 00 | c2 0b 21 88 64 62 87 22 |"..!.\f.|..!.db."|
|00001540| 20 5b 6e 6e 65 65 74 68 | 69 6e 67 2d 67 65 74 2d | [nneeth|ing-get-|
|00001550| 68 65 61 64 20 66 69 6c | 65 20 69 6e 73 65 72 74 |head fil|e insert|
|00001560| 2d 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e |-buffer-|substrin|
|00001570| 67 20 6e 6e 65 65 74 68 | 69 6e 67 2d 77 6f 72 6b |g nneeth|ing-work|
|00001580| 2d 62 75 66 66 65 72 5d | 20 32 20 28 23 24 20 2e |-buffer]| 2 (#$ .|
|00001590| 20 35 33 35 36 29 5d 29 | 0a 23 40 35 38 20 43 72 | 5356)])|.#@58 Cr|
|000015a0| 65 61 74 65 20 61 20 68 | 65 61 64 20 62 79 20 6c |eate a h|ead by l|
|000015b0| 6f 6f 6b 69 6e 67 20 61 | 74 20 74 68 65 20 66 69 |ooking a|t the fi|
|000015c0| 6c 65 20 61 74 74 72 69 | 62 75 74 65 73 20 6f 66 |le attri|butes of|
|000015d0| 20 46 49 4c 45 2e 1f 0a | 28 64 65 66 61 6c 69 61 | FILE...|(defalia|
|000015e0| 73 20 27 6e 6e 65 65 74 | 68 69 6e 67 2d 6d 61 6b |s 'nneet|hing-mak|
|000015f0| 65 2d 68 65 61 64 20 23 | 5b 28 66 69 6c 65 20 26 |e-head #|[(file &|
|00001600| 6f 70 74 69 6f 6e 61 6c | 20 62 75 66 66 65 72 29 |optional| buffer)|
|00001610| 20 22 c0 09 21 1a c3 c4 | 09 21 c5 c6 c7 0e 08 54 | "..!...|.!.....T|
|00001620| 89 16 08 21 c9 ca 20 cb | cc 5c 6e 38 cd 9a 83 5c |...!.. .|.\n8...\|
|00001630| 22 00 ce 82 2a 00 cf d0 | cc 5c 6e 38 21 c5 51 0e |"...*...|.\n8!.Q.|
|00001640| 11 83 46 00 8a 0e 11 71 | 88 d2 d3 d4 d5 23 85 42 |..F....q|.....#.B|
|00001650| 00 d6 d7 d8 21 c5 51 29 | 86 4c 00 d9 da 5c 6e 38 |....!.Q)|.L...\n8|
|00001660| 09 5c 22 db c7 dc 5c 6e | 38 21 21 d8 56 83 63 00 |.\"...\n|8!!.V.c.|
|00001670| dd c7 dc 5c 6e 38 21 c5 | 51 82 64 00 ce 0e 11 83 |...\n8!.|Q.d.....|
|00001680| 7b 00 8a 0e 11 71 88 de | c7 df 65 64 5c 22 21 c5 |{....q..|..ed\"!.|
|00001690| 51 29 82 7c 00 ce b1 5c | 66 29 87 22 20 5b 66 69 |Q).|...\|f)." [fi|
|000016a0| 6c 65 2d 61 74 74 72 69 | 62 75 74 65 73 20 66 69 |le-attri|butes fi|
|000016b0| 6c 65 20 61 74 74 73 20 | 22 53 75 62 6a 65 63 74 |le atts |"Subject|
|000016c0| 3a 20 22 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 6e 6f |: " file|-name-no|
|000016d0| 6e 64 69 72 65 63 74 6f | 72 79 20 22 5c 6e 22 20 |ndirecto|ry "\n" |
|000016e0| 22 4d 65 73 73 61 67 65 | 2d 49 44 3a 20 3c 6e 6e |"Message|-ID: <nn|
|000016f0| 65 65 74 68 69 6e 67 2d | 22 20 69 6e 74 2d 74 6f |eething-|" int-to|
|00001700| 2d 73 74 72 69 6e 67 20 | 6e 6e 65 65 74 68 69 6e |-string |nneethin|
|00001710| 67 2d 6d 65 73 73 61 67 | 65 2d 69 64 2d 6e 75 6d |g-messag|e-id-num|
|00001720| 62 65 72 20 22 40 22 20 | 73 79 73 74 65 6d 2d 6e |ber "@" |system-n|
|00001730| 61 6d 65 20 22 3e 5c 6e | 22 20 35 20 28 30 20 30 |ame ">\n|" 5 (0 0|
|00001740| 29 20 22 22 20 22 44 61 | 74 65 3a 20 22 20 63 75 |) "" "Da|te: " cu|
|00001750| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 73 74 72 69 6e |rrent-ti|me-strin|
|00001760| 67 20 62 75 66 66 65 72 | 20 72 65 2d 73 65 61 72 |g buffer| re-sear|
|00001770| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 3c 5b 61 2d |ch-forwa|rd "<[a-|
|00001780| 7a 41 2d 5a 30 2d 39 5f | 5d 40 5b 2d 61 2d 7a 41 |zA-Z0-9_|]@[-a-zA|
|00001790| 2d 5a 30 2d 39 5f 5d 3e | 22 20 31 30 30 30 20 74 |-Z0-9_]>|" 1000 t|
|000017a0| 20 22 46 72 6f 6d 3a 20 | 22 20 6d 61 74 63 68 2d | "From: |" match-|
|000017b0| 73 74 72 69 6e 67 20 30 | 20 6e 6e 65 65 74 68 69 |string 0| nneethi|
|000017c0| 6e 67 2d 66 72 6f 6d 2d | 6c 69 6e 65 20 32 20 73 |ng-from-|line 2 s|
|000017d0| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 37 20 22 |tring-to|-int 7 "|
|000017e0| 43 68 61 72 73 3a 20 22 | 20 22 4c 69 6e 65 73 3a |Chars: "| "Lines:|
|000017f0| 20 22 20 63 6f 75 6e 74 | 2d 6c 69 6e 65 73 5d 20 | " count|-lines] |
|00001800| 31 36 20 28 23 24 20 2e | 20 35 35 33 34 29 5d 29 |16 (#$ .| 5534)])|
|00001810| 0a 23 40 33 36 20 52 65 | 74 75 72 6e 20 61 20 46 |.#@36 Re|turn a F|
|00001820| 72 6f 6d 20 68 65 61 64 | 65 72 20 62 61 73 65 64 |rom head|er based|
|00001830| 20 6f 66 20 55 49 44 2e | 1f 0a 28 64 65 66 61 6c | of UID.|..(defal|
|00001840| 69 61 73 20 27 6e 6e 65 | 65 74 68 69 6e 67 2d 66 |ias 'nne|ething-f|
|00001850| 72 6f 6d 2d 6c 69 6e 65 | 20 23 5b 28 75 69 64 20 |rom-line| #[(uid |
|00001860| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 69 6c 65 29 20 |&optiona|l file) |
|00001870| 22 c0 c1 c2 8f 1b c0 c4 | c5 8f 1e 06 c7 c8 0e 09 |".......|........|
|00001880| 5c 22 83 30 00 0e 09 ca | 94 ca 95 4f c7 cb 0e 09 |\".0....|...O....|
|00001890| 5c 22 83 32 00 0e 09 cc | 94 cc 95 4f 13 c0 16 06 |\".2....|...O....|
|000018a0| 82 32 00 cd 20 1e 0e cf | 0b d0 0e 0e 0e 06 83 46 |.2.. ...|.......F|
|000018b0| 00 d1 0e 06 d2 51 82 47 | 00 d3 d4 b0 06 2b 87 22 |.....Q.G|.....+."|
|000018c0| 20 5b 6e 69 6c 20 28 75 | 73 65 72 2d 6c 6f 67 69 | [nil (u|ser-logi|
|000018d0| 6e 2d 6e 61 6d 65 20 75 | 69 64 29 20 28 28 65 72 |n-name u|id) ((er|
|000018e0| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|000018f0| 08 c1 20 55 83 5c 6e 00 | c2 20 87 08 c3 55 83 12 |.. U.\n.|. ...U..|
|00001900| 00 c4 87 c5 08 21 87 22 | 20 5b 75 69 64 20 75 73 |.....!."| [uid us|
|00001910| 65 72 2d 75 69 64 20 75 | 73 65 72 2d 6c 6f 67 69 |er-uid u|ser-logi|
|00001920| 6e 2d 6e 61 6d 65 20 30 | 20 22 72 6f 6f 74 22 20 |n-name 0| "root" |
|00001930| 69 6e 74 2d 74 6f 2d 73 | 74 72 69 6e 67 5d 20 32 |int-to-s|tring] 2|
|00001940| 29 29 29 20 6c 6f 67 69 | 6e 20 28 75 73 65 72 2d |))) logi|n (user-|
|00001950| 66 75 6c 6c 2d 6e 61 6d | 65 20 75 69 64 29 20 28 |full-nam|e uid) (|
|00001960| 28 65 72 72 6f 72 20 28 | 62 79 74 65 2d 63 6f 64 |(error (|byte-cod|
|00001970| 65 20 22 08 c1 20 55 83 | 5c 6e 00 c2 20 87 08 c3 |e ".. U.|\n.. ...|
|00001980| 55 85 11 00 c4 87 22 20 | 5b 75 69 64 20 75 73 65 |U....." |[uid use|
|00001990| 72 2d 75 69 64 20 75 73 | 65 72 2d 66 75 6c 6c 2d |r-uid us|er-full-|
|000019a0| 6e 61 6d 65 20 30 20 22 | 4d 73 2e 20 52 6f 6f 74 |name 0 "|Ms. Root|
|000019b0| 22 5d 20 32 29 29 29 20 | 6e 61 6d 65 20 73 74 72 |"] 2))) |name str|
|000019c0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5c 5c 60 2f 5b |ing-matc|h "\\`/[|
|000019d0| 5e 2f 40 5d 2a 40 5c 5c | 28 5b 5e 3a 2f 5d 2b 5c |^/@]*@\\|([^:/]+\|
|000019e0| 5c 29 3a 22 20 66 69 6c | 65 20 31 20 22 2f 5c 5c |\):" fil|e 1 "/\\|
|000019f0| 28 75 73 65 72 73 5c 5c | 7c 68 6f 6d 65 5c 5c 29 |(users\\||home\\)|
|00001a00| 2f 5c 5c 28 5b 5e 2f 5d | 2b 5c 5c 29 2f 22 20 32 |/\\([^/]|+\\)/" 2|
|00001a10| 20 73 79 73 74 65 6d 2d | 6e 61 6d 65 20 68 6f 73 | system-|name hos|
|00001a20| 74 20 22 46 72 6f 6d 3a | 20 22 20 22 40 22 20 22 |t "From:| " "@" "|
|00001a30| 20 28 22 20 22 29 22 20 | 22 22 20 22 5c 6e 22 5d | (" ")" |"" "\n"]|
|00001a40| 20 37 20 28 23 24 20 2e | 20 36 31 36 36 29 5d 29 | 7 (#$ .| 6166)])|
|00001a50| 0a 23 40 35 35 20 45 69 | 74 68 65 72 20 66 69 6e |.#@55 Ei|ther fin|
|00001a60| 64 20 74 68 65 20 68 65 | 61 64 20 69 6e 20 46 49 |d the he|ad in FI|
|00001a70| 4c 45 20 6f 72 20 6d 61 | 6b 65 20 61 20 68 65 61 |LE or ma|ke a hea|
|00001a80| 64 20 66 6f 72 20 46 49 | 4c 45 2e 1f 0a 28 64 65 |d for FI|LE...(de|
|00001a90| 66 61 6c 69 61 73 20 27 | 6e 6e 65 65 74 68 69 6e |falias '|nneethin|
|00001aa0| 67 2d 67 65 74 2d 68 65 | 61 64 20 23 5b 28 66 69 |g-get-he|ad #[(fi|
|00001ab0| 6c 65 29 20 22 8a c0 09 | 21 71 88 c2 13 c4 70 21 |le) "...|!q....p!|
|00001ac0| 88 c5 20 88 c6 0e 07 21 | 84 1a 00 c2 82 60 00 c8 |.. ....!|.....`..|
|00001ad0| 0e 07 21 84 28 00 c9 0e | 07 21 83 31 00 ca 0e 07 |..!.(...|.!.1....|
|00001ae0| 21 88 cb 82 60 00 cc 0e | 07 21 88 cd 20 83 52 00 |!...`...|.!.. .R.|
|00001af0| 65 62 88 ce cf c2 cb 23 | 83 4b 00 60 53 86 4c 00 |eb.....#|.K.`S.L.|
|00001b00| 64 64 7c 88 82 5f 00 65 | 62 88 ca 0e 07 70 5c 22 |dd|.._.e|b....p\"|
|00001b10| 88 60 64 7c 88 cb 29 87 | 22 20 5b 67 65 74 2d 62 |.`d|..).|" [get-b|
|00001b20| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 6e 6e 65 |uffer-cr|eate nne|
|00001b30| 65 74 68 69 6e 67 2d 77 | 6f 72 6b 2d 62 75 66 66 |ething-w|ork-buff|
|00001b40| 65 72 20 6e 69 6c 20 63 | 61 73 65 2d 66 6f 6c 64 |er nil c|ase-fold|
|00001b50| 2d 73 65 61 72 63 68 20 | 62 75 66 66 65 72 2d 64 |-search |buffer-d|
|00001b60| 69 73 61 62 6c 65 2d 75 | 6e 64 6f 20 65 72 61 73 |isable-u|ndo eras|
|00001b70| 65 2d 62 75 66 66 65 72 | 20 66 69 6c 65 2d 65 78 |e-buffer| file-ex|
|00001b80| 69 73 74 73 2d 70 20 66 | 69 6c 65 20 66 69 6c 65 |ists-p f|ile file|
|00001b90| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 20 66 69 6c |-directo|ry-p fil|
|00001ba0| 65 2d 73 79 6d 6c 69 6e | 6b 2d 70 20 6e 6e 65 65 |e-symlin|k-p nnee|
|00001bb0| 74 68 69 6e 67 2d 6d 61 | 6b 65 2d 68 65 61 64 20 |thing-ma|ke-head |
|00001bc0| 74 20 6e 6e 68 65 61 64 | 65 72 2d 69 6e 73 65 72 |t nnhead|er-inser|
|00001bd0| 74 2d 68 65 61 64 20 6e | 6e 68 65 61 64 65 72 2d |t-head n|nheader-|
|00001be0| 61 72 74 69 63 6c 65 2d | 70 20 73 65 61 72 63 68 |article-|p search|
|00001bf0| 2d 66 6f 72 77 61 72 64 | 20 22 5c 6e 5c 6e 22 5d |-forward| "\n\n"]|
|00001c00| 20 34 20 28 23 24 20 2e | 20 36 37 34 32 29 5d 29 | 4 (#$ .| 6742)])|
|00001c10| 0a 23 40 33 34 20 52 65 | 74 75 72 6e 20 74 68 65 |.#@34 Re|turn the|
|00001c20| 20 66 69 6c 65 20 6e 61 | 6d 65 20 6f 66 20 41 52 | file na|me of AR|
|00001c30| 54 49 43 4c 45 2e 1f 0a | 28 64 65 66 61 6c 69 61 |TICLE...|(defalia|
|00001c40| 73 20 27 6e 6e 65 65 74 | 68 69 6e 67 2d 66 69 6c |s 'nneet|hing-fil|
|00001c50| 65 2d 6e 61 6d 65 20 23 | 5b 28 61 72 74 69 63 6c |e-name #|[(articl|
|00001c60| 65 29 20 22 c0 09 21 5c | 6e a7 83 10 00 5c 6e 0b |e) "..!\|n....\n.|
|00001c70| 9e 41 40 82 11 00 5c 6e | 50 87 22 20 5b 66 69 6c |.A@...\n|P." [fil|
|00001c80| 65 2d 6e 61 6d 65 2d 61 | 73 2d 64 69 72 65 63 74 |e-name-a|s-direct|
|00001c90| 6f 72 79 20 6e 6e 65 65 | 74 68 69 6e 67 2d 64 69 |ory nnee|thing-di|
|00001ca0| 72 65 63 74 6f 72 79 20 | 61 72 74 69 63 6c 65 20 |rectory |article |
|00001cb0| 6e 6e 65 65 74 68 69 6e | 67 2d 6d 61 70 5d 20 33 |nneethin|g-map] 3|
|00001cc0| 20 28 23 24 20 2e 20 37 | 31 39 30 29 5d 29 0a 28 | (#$ . 7|190)]).(|
|00001cd0| 70 72 6f 76 69 64 65 20 | 28 71 75 6f 74 65 20 6e |provide |(quote n|
|00001ce0| 6e 65 65 74 68 69 6e 67 | 29 29 0a |neething|)). |
+--------+-------------------------+-------------------------+--------+--------+